home *** CD-ROM | disk | FTP | other *** search
/ Electronics Boutique Catalog 1996 Spring / 1996 Electronics Boutique Spring CD-ROM (USA).bin / eb / demos / shgmdemo.dir / 00021_Play.ls < prev    next >
Encoding:
Text File  |  1995-12-06  |  636 b   |  28 lines
  1. on mouseDown
  2.   global gXframe
  3.   if the colorDepth <> 8 then
  4.     set gXframe to marker(0)
  5.     go("BadBitDepth")
  6.   else
  7.     puppetSound("PlayB")
  8.     repeat with x = 1 to 2
  9.       set the castNum of sprite 14 to the number of cast "play0"
  10.       updateStage()
  11.       startTimer()
  12.       repeat while the timer < 15
  13.         nothing()
  14.       end repeat
  15.       set the castNum of sprite 14 to the number of cast "play1"
  16.       updateStage()
  17.       startTimer()
  18.       repeat while the timer < 15
  19.         nothing()
  20.       end repeat
  21.     end repeat
  22.     repeat while the soundBusy of 1
  23.       updateStage()
  24.     end repeat
  25.     go("start game")
  26.   end if
  27. end
  28.